home *** CD-ROM | disk | FTP | other *** search
/ Aminet 46 / Aminet 46 (2001)(GTI - Schatztruhe)[!][Dec 2001].iso / Aminet / text / edit / edt10src.lha / txt / scripts / Enum.edt < prev    next >
Text File  |  1995-02-28  |  351b  |  19 lines
  1. /* create enumeration */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ReqNumber "Aufzählung" "Basis:"
  6. PARSE VAR RESULT done from
  7. IF done="OK" THEN DO
  8.   ReqNumber "Aufzählung" "Endwert:" from
  9.   PARSE VAR RESULT done to
  10.   IF done="OK" THEN DO
  11.     DO WHILE from<=to
  12.       Find NEXT "= "
  13.       Right 2;
  14.       Delete LINEEND
  15.       Insert from||";"
  16.       from=from+1
  17.     END
  18.   END
  19. END